5 B=198:POKE53281,1:POKE53280,5
6 BL$="                                       ":OPEN15,8,15,"I0":CLOSE15
7 OPEN2,8,2,"$":FORX=0TO156:GET#2,A$:     :NEXT
8 GET#2,A$:SI=VAL(A$):CLOSE2
10 PRINT"[147][144]        [204][207][193][196][211][212][193][210][160][200]ARDCOPY [211]ETUP         "
20 PRINT"[196]O YOU HAVE:":PRINT:PRINT"  [195]OMMODORE 1525"
30 PRINT"  [195]OMMODORE 1526":PRINT"  [195]OMMODORE [205][208][211] 801"
40 PRINT"  [212]YMAC [195]ONNECTION"
50 PRINT"  [195]ARD/?[160][193], [194], OR +[199]"
60 PRINT"  [194]US[195]ARD [201][197][197][197]"
70 PRINT"OR ANY OTHER 1525-COMPATIBLE SETUP?"
80 POKEB,.:WAITB,1:GETA$
90 IFA$="Y"ORA$="[217]"THENPA=4:SA=7:C8%=-1:   GOTO300
100 IFA$<>"N"ANDA$<>"[206]"THEN80
110 PRINT"[196]O YOU HAVE A [195]OMMODORE 1520?"
115 FORX=0TO10:PRINTBL$:NEXT
120 POKEB,.:WAITB,1:GETA$
130 IFA$="Y"ORA$="[217]"THENPA=6:SA=0:          GOTO300
140 IFA$<>"N"ANDA$<>"[206]"THEN120
150 PRINT"[196]O YOU HAVE AN OLD [195]OMMODORE 1515?"
155 FORX=0TO10:PRINTBL$:NEXT
160 POKEB,.:WAITB,1:GETA$
170 IFA$="Y"ORA$="[217]"THENPA=4:SA=7:C8%=0:    GOTO300
180 IFA$<>"N"ANDA$<>"[206]"THEN160
190 :
200 PRINT"[207].[203]. THEN, PLEASE ENTER THE CORRECT"
202 PRINT"DATA FOR YOUR PRINTER:"
203 FORX=0TO10:PRINTBL$:NEXT
204 PRINT"[197]NTER PRIMARY   ADDRESS --";:INPUTPA$:PA=VAL(PA$)
206 PRINT:PRINT:PRINT"[197]NTER SECONDARY ADDRESS --";:INPUTSA$:SA=VAL(SA$)
300 REM   DONE
301 PRINT"":FORX=0TO10:PRINTBL$:NEXT
302 PRINT"[208]RIMARY ADDRESS OF"PA"[157]."
304 PRINT"[211]ECONDARY ADDRESS OF"SA"[157]."
305 :
310 PRINT"[193]RE THESE SELECTIONS CORRECT?"
312 PRINT"          [[217]/[206]] OR [209] TO [209]UIT"
315 POKEB,0:WAITB,1:GETA$
320 IFA$<>"Y"ANDA$<>"N"ANDA$<>"Q"THEN315
325 :
330 IFA$="Q"THEN1000
340 IFA$="N"THEN10
345 GOTO500 :  REM   DO THE STUFF
350 :
360 PRINT"":FORX=0TO20:PRINTBL$:NEXT
370 PRINT"   [208]LEASE MAKE SURE SIDE"SI"OF YOUR"
375 PRINT"   [204][207][193][196][211][212][193][210] DISK IS IN YOUR DRIVE."
380 PRINT" [208]LEASE PRESS A KEY WHEN YOU ARE READY."
381 PRINT"      ([208]RESS [209] TO [209]UIT)"
382 POKEB,0:WAITB,1:GETA$:IFA$="Q"THEN300
386 OPEN15,8,15,"I0":OPEN8,8,8,"PRINT.FILE":INPUT#15,ER,ER$,NS,TR
387 FL=0:IFER<20THEN400
388 PRINT"          [196] [201] [211] [203][160]  [197] [210] [210] [207] [210]!!!":FORDL=1TO2500:NEXT:FL=1
389 CLOSE8:CLOSE15:RETURN
390 :
400 REM    DO THE REAL STUFF
402 PRINT#15,"P"CHR$(8)CHR$(1)CHR$(0)CHR$(1):PRINT#8,PA;CHR$(13);SA;CHR$(13)
405 CLOSE8:CLOSE15
410 PRINT"   [208]RINT FILE IS NOW ON THIS SIDE"
412 PRINT"            OF THE DISK."
416 RETURN
450 :
500 GOSUB360:IFFL=1THEN500
510 IFSI=1THENSI=2:GOTO530
520 IFSI=2THENSI=1
530 GOSUB360:IFFL=1THEN530
540 PRINT"":FORX=0TO20:PRINTBL$:NEXT
542 PRINT"[208]ROCESS NOW COMPLETE."
544 PRINT"[206]OW RETURNING TO [204][207][193][196][211][212][193][210]..."
1000 FORDL=1TO1000:NEXT:                     LOAD"HELLO CONNECT",8